home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok02 / m2code / m2codedemo / draw.mod < prev    next >
Encoding:
Text File  |  1993-11-04  |  1.2 KB  |  43 lines
  1. MODULE Draw;
  2.  
  3. FROM DrawLines IMPORT DrawLines;
  4. FROM SYSTEM IMPORT ADR,ADDRESS,NULL,BYTE;
  5. FROM Intuition IMPORT ScreenPtr,ScreenFlags,ScreenFlagSet,CustomScreen,
  6.       IntuitionName,IntuitionBase;
  7. FROM Screens IMPORT NewScreen,OpenScreen,CloseScreen;
  8. FROM Views IMPORT ModeSet,Modes;
  9. FROM GraphicsLibrary IMPORT GraphicsName,GraphicsBase,DrawingModes,
  10.       DrawingModeSet;
  11. FROM Libraries IMPORT OpenLibrary,CloseLibrary;
  12. FROM Pens IMPORT SetDrMd,Draw,Move;
  13.  
  14. VAR
  15.   MyScreen: ScreenPtr;
  16.   MyNewScreen: NewScreen;
  17.   x: INTEGER;
  18.  
  19. BEGIN
  20.   IntuitionBase := OpenLibrary(IntuitionName,0);
  21.   GraphicsBase := OpenLibrary(GraphicsName,0);
  22.  
  23.   WITH MyNewScreen DO
  24.     LeftEdge := 0;    TopEdge  := 0;
  25.     Width    := 640;  Height   := 256;  Depth   := 1;
  26.     DetailPen:= BYTE(0); BlockPen:= BYTE(1);
  27.     ViewModes:= ModeSet{Hires};
  28.     Type     := ScreenFlagSet{ScreenQuiet}+CustomScreen;
  29.     Font     := NULL; DefaultTitle := NULL; Gadgets := NULL;
  30.     CustomBitMap := NULL;
  31.   END;
  32.   MyScreen := OpenScreen(ADR(MyNewScreen));
  33.   SetDrMd(ADR(MyScreen^.RPort),DrawingModeSet{Complement});
  34.  
  35.   DrawLines(ADR(MyScreen^.RPort),ADDRESS(GraphicsBase));
  36.  
  37.   CloseScreen(MyScreen);
  38.  
  39.   CloseLibrary(IntuitionBase);
  40.   CloseLibrary(GraphicsBase);
  41.  
  42. END Draw.
  43.